home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 24 / MacFormat n. 24 (Spain) / MacFormat 24.bin / Demos / Jungle Activated! / JungleActivated Demo / jung DEMO d / 00160_Mixer- Bass Selector.ls < prev    next >
Encoding:
Text File  |  1996-10-14  |  638 b   |  24 lines
  1. on mouseUp
  2.   global gWhichSound1, gBassStop
  3.   set the volume of sound 12 to 0
  4.   set WhichBass to the clickOn
  5.   if the foreColor of sprite WhichBass = 226 then
  6.     set the foreColor of sprite WhichBass to 255
  7.     sound stop 1
  8.     set gBassStop to 1
  9.     exit
  10.   end if
  11.   set gWhichSound1 to WhichBass - 41
  12.   repeat with i = 42 to 44
  13.     puppetSprite(i, 1)
  14.   end repeat
  15.   repeat with i = 42 to 44
  16.     set the foreColor of sprite i to 255
  17.   end repeat
  18.   set the foreColor of sprite WhichBass to 226
  19.   set gBassStop to 0
  20.   updateStage()
  21.   set gWhichSound1 to getpn() & "Sounds:Bass" & gWhichSound1 & ".aif"
  22.   sound playFile 1, gWhichSound1
  23. end
  24.